home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1998 January
/
Macworld (1998-01).dmg
/
QuarkXPress Passport
/
QXP Passport™ Pre-release PPC
/
QuarkXPress Passport™ 4.0 Demo
/
QuarkXPress Passport™ 4.0 Demo.rsrc
/
STR#_800.txt
< prev
next >
Wrap
Text File
|
1997-08-25
|
2KB
|
310 lines
4 shp
3 shp
2 shp
1 shp
0 shp
xppser
sd
***
pmx currentmatrix pop
/ulpmax .2 def/ultmax .2 def
{currentfile}aload pop 2 index dup 1 add 2 idiv add string{readline pop upl}
mx3 z
R2
R1
R0
grpatch
sepatch
calcbnd
F vtadj
T vtadj
aload pop]cvx exch}repeat pop}B
/rdstr{{[
mx0 z
mx0 currentmatrix pop
bn
pkng{savepacking setpacking}if
Z
2 blnd
0 blnd
cirm
cutm
regmarkdict begin
pop pop
docpat{
***
/patfr 1 1 mtx defaultmatrix dtransform pop abs dup 72 mul 4 -1 roll div exch .5 add cvi 8 mul dup 8 lt{pop 8}if div def
/CT ctf def
{currentfile}aload pop 2 index string{readhexstring pop}
{currentfile}aload pop 2 index string{readstring pop}
setregcolor
3 -1 roll add 3 1 roll add
st0
/opimtx matrix currentmatrix def
***
/epsmtx matrix currentmatrix def
1 index 0 exch translate 1 -1 scale
dup 0 translate -1 1 scale
pen 0 H 0 a 0 b[] 0 p
{currentfile /RunLengthDecode filter}aload pop 4 index string{readstring pop}
0 0]
/xpys X /ctz
setcustc
F rc u)kp
/custprsnt F def -1/regsh X
***
xpbpg
bkc 0 0 put
ptc
bkc 0 1 put
rstrscr mtx1 z/pnm 1 def
mtx1 currentmatrix pop crntc cps
rdstr
F rc V G
F rc n G
initclip F rc u)kp
opimtx z
eto
***
***
custblnd
F rc g u cps np mif
1 setdg
epR
epS
> pat
***
/setstrokeadjust where{pop F setstrokeadjust}if
/setscr0{
/getangl{
/setangl{
F stovp
0 sttrp
T stovp
F ov
F rc
0 gr
64 gr
T rc
T ov
}B
xps2ps
s2qd
xpbu
xpbn
bmp
sttrp
stovp
epsdict begin epsetup
rs
rv
rr1
/nf
h
setchc
ul
crs
sp
epsmtx
pkng{savepacking setpacking}if
px
lw
rh
dh
qq
eu
ec
ef
tc
te
tp
dfnt
f
L
epsdict begin/K1 T def end
strik
/ss X
(initclip)kp
)strtp
ssh
D
d
std
bu
spcldr
tt
endp
pkng{/savepacking currentpacking def true setpacking}if
mif setc
/ff X
ep
imx z
ar
rr
lin
qc
qi
imx currentmatrix pop
pt
bp
cpat
rstrscr
pen
sg
gr